Data preparations

load("XSTSF_production.RData")
source('functions.R')

f0_all_ct <- f0_all_pre %>% filter(focus_condition == 'ct' ) %>% 
  group_by(speaker) %>% 
  mutate(norm_f0 = scale(log(f0))) %>% 
  ungroup()

f0_tri_ct <- f0_all_ct %>% filter(diortri == 'tri') 
unique(f0_tri_ct$syntax)
## [1] "1+2MH" "1+2VO" "2+1VL" "2+1LL"
f0_tri_ct_12mh <- f0_tri_ct %>% filter(syntax == '1+2MH')
f0_tri_ct_12vo <- f0_tri_ct %>% filter(syntax == '1+2VO')
f0_tri_ct_21vl <- f0_tri_ct %>% filter(syntax == '2+1VL')
f0_tri_ct_21ll <- f0_tri_ct %>% filter(syntax == '2+1LL')

Initial data inspection

1+2MH

unique(f0_tri_ct_12mh$hist_tone1)
## [1] "yinshang"  "yangshang" "yinping"
# yinping-initial VO
f0_tri_ct_12mh_hp <- f0_tri_ct_12mh %>% filter(hist_tone1 == 'yinping')
ggplotly(draw_by(f0_tri_ct_12mh_hp, 'speaker'), tooltip = c('text', 'x'))
# yinshang-initial VO
f0_tri_ct_12mh_hs <- f0_tri_ct_12mh %>% filter(hist_tone1 == 'yinshang')
ggplotly(draw_by(f0_tri_ct_12mh_hs, 'speaker'), tooltip = c('text', 'x'))
# yangshang-initial VO
f0_tri_ct_12mh_ls <- f0_tri_ct_12mh %>% filter(hist_tone1 == 'yangshang')
ggplotly(draw_by(f0_tri_ct_12mh_ls, 'speaker'), tooltip = c('text', 'x'))

1+2VO

unique(f0_tri_ct_12vo$hist_tone1)
## [1] "yinshang"  "yangshang"
# yinshang-initial VO
f0_tri_ct_12vo_hs <- f0_tri_ct_12vo %>% filter(hist_tone1 == 'yinshang')
ggplotly(draw_by(f0_tri_ct_12vo_hs, 'speaker'), tooltip = c('text', 'x'))
# yangshang-initial VO
f0_tri_ct_12vo_ls <- f0_tri_ct_12vo %>% filter(hist_tone1 == 'yangshang')
ggplotly(draw_by(f0_tri_ct_12vo_ls, 'speaker'), tooltip = c('text', 'x'))

2+1VL

unique(f0_tri_ct_21vl$hist_tone1)
## [1] "yangqu"    "yinping"   "yangshang"
# yinping-initial VO
f0_tri_ct_21vl_hp <- f0_tri_ct_21vl %>% filter(hist_tone1 == 'yinping')
ggplotly(draw_by(f0_tri_ct_21vl_hp, 'speaker'), tooltip = c('text', 'x'))
# yangshang-initial VO
f0_tri_ct_21vl_ls <- f0_tri_ct_21vl %>% filter(hist_tone1 == 'yangshang')
ggplotly(draw_by(f0_tri_ct_21vl_ls, 'speaker'), tooltip = c('text', 'x'))
# yangqu-initial VO
f0_tri_ct_21vl_lq <- f0_tri_ct_21vl %>% filter(hist_tone1 == 'yangshang')
ggplotly(draw_by(f0_tri_ct_21vl_lq, 'speaker'), tooltip = c('text', 'x'))

2+1LL

unique(f0_tri_ct_21ll$hist_tone1)
## [1] "yinping"  "yinshang" "yangping"
# yinping-initial VO
f0_tri_ct_21ll_hp <- f0_tri_ct_21ll %>% filter(hist_tone1 == 'yinping')
ggplotly(draw_by(f0_tri_ct_21ll_hp, 'speaker'), tooltip = c('text', 'x'))
# yinshang-initial VO
f0_tri_ct_21ll_hs <- f0_tri_ct_21ll %>% filter(hist_tone1 == 'yinshang')
ggplotly(draw_by(f0_tri_ct_21ll_hs, 'speaker'), tooltip = c('text', 'x'))
# yangping-initial VO
f0_tri_ct_21ll_lp <- f0_tri_ct_21ll %>% filter(hist_tone1 == 'yangping')
ggplotly(draw_by(f0_tri_ct_21ll_lp, 'speaker'), tooltip = c('text', 'x'))